--[[ 编码: WMS-04-03 名称: 批量导入 作者：HAN 日期：2025-1-29 入口函数：ImportLocation 功能说明: 处理货位导入，在导入的时候判断一下仓库、库区等是否存在？如果不存在要新创建 导入格式见《#HHWMS-001 仓库货位定义表.xlsx》 变更历史: V2.0 HAN 20250330 适合 WMS Basis 版本V15.5以上的数据模型版本 -- 增加对巷道数据对的创建 -- Error 用 stopProgram 替换 --]] wms_base = require ("wms_base") local location_type = {} -- 货位类型 local purpose = {} -- 用途 -- 获取字典项中的Name，并且转成数值返回 local function GetLocationTyeValue( strLocTypeName ) local n, nCount local nValue = 1 nCount = #location_type for n = 1, nCount do if ( location_type[n].Value == strLocTypeName ) then nValue = lua.StrToNumber( location_type[n].Name ) if ( nValue == 0 ) then nValue = 1 end return nValue end end return nValue end -- 获取字典项中的Name，并且转成数值返回 local function GetPurposeValue( strPurpose ) local n, nCount local nValue = 0 nCount = #purpose for n = 1, nCount do if ( purpose[n].Value == strPurpose ) then return lua.StrToNumber( purpose[n].Name ) end end return nValue end function ImportLocation(strLuaDEID) local nRet, strRetInfo -- 获取导入的数据, 返回 [{"attr":"xx","value":""},...] local row_data = {} nRet, row_data = m3.GetSysDataJson(strLuaDEID) if (nRet ~= 0 or strRetInfo == '') then mobox.stopProgram( strLuaDEID, "无法获取导入数据!") return end local row_attrs local n, nCount, nValue, nRows nRows = #row_data if ( nRows == 0 ) then return end -- 获取操作者的工厂标识 local factory nRet, factory = m3.GetMyFactory( strLuaDEID ) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, "GetMyFactory失败! "..factory ) return end if ( factory == '' ) then factory = '0000' end -- 一些关键属性 local strWHCode = '' local strWHName = '' local strAreaCode = '' local strAreaName = '' local strLocCode = '' local strLocName = '' local location = {} -- 获取 货位类型 字典，把 输入 的“常规/堆叠” 转成 整数值 nRet, strRetInfo = mobox.getDictItemIInfo( "WMS_LocationType" ) if ( nRet ~= 0 or strRetInfo == '') then mobox.stopProgram( strLuaDEID, "系统没有定义WMS_LocationType字典!" ) return end location_type = json.decode( strRetInfo ) nRet, strRetInfo = mobox.getDictItemIInfo( "WMS_LocationPurpose" ) if ( nRet ~= 0 or strRetInfo == '') then mobox.stopProgram( strLuaDEID, "系统没有定义WMS_LocationPurpose字典!") return end purpose = json.decode( strRetInfo ) -- 步骤1 获取从excel导入的一行数据 for row = 1, nRows do row_attrs = row_data[row] nCount = #row_attrs strWHCode = '' strWHName = '' strAreaCode = '' strAreaName = '' strLocCode = '' strLocName = '' -- 初始化 货位 对象 location = m3.AllocObject(strLuaDEID,"Location") for n = 1, nCount do strAttr = row_attrs[n].attr strValue = row_attrs[n].value if (strAttr ~= '') then -- 根据导入的excel列头名称进行判断 -- 关键属性判断，如果属性不存在要报错 if (strAttr == "仓库编码") then if (strValue == '') then mobox.stopProgram( strLuaDEID, strAttr .. "不能为空!") return end strWHCode = strValue location.wh_code = strWHCode --V1.2 elseif (strAttr == "仓库名称") then strWHName = strValue elseif (strAttr == "库区编码") then if (strValue == '') then mobox.stopProgram( strLuaDEID, strAttr .. "不能为空!" ) return end strAreaCode = strValue location.area_code = strAreaCode elseif (strAttr == "库区名称") then strAreaName = strValue elseif (strAttr == "货位编码") then -- 货位编码允许为空，如果空用创建前脚本实现编码 strLocCode = strValue location.code = strValue elseif (strAttr == "货位名称") then strLocName = strValue location.name = strValue -- 常规属性 elseif (strAttr == "巷道") then location.aisle = lua.StrToNumber( strValue ) elseif (strAttr == "排") then location.row = lua.StrToNumber( strValue ) elseif (strAttr == "列") then location.col = lua.StrToNumber( strValue ) elseif (strAttr == "层") then location.layer = lua.StrToNumber( strValue ) elseif (strAttr == "货位类型") then location.loc_type = GetLocationTyeValue( strValue ) elseif (strAttr == "用途") then location.purpose = GetPurposeValue( strValue ) elseif (strAttr == "容量") then location.capacity = lua.StrToNumber( strValue ) elseif (strAttr == "长度") then location.length = lua.StrToNumber( strValue ) elseif (strAttr == "宽度") then location.width = lua.StrToNumber( strValue ) elseif (strAttr == "高度") then location.height = lua.StrToNumber( strValue ) --V1.2 elseif (strAttr == "AGV对照编码") then location.agv_site = strValue end end end -- 步骤2 根据货位编码来判断导入的货位是否已经存在 -- 如果已经存在，根据导入的数据进行覆盖 -- 如果不存在需要创建 local attrs local strCondition = "S_CODE='" .. strLocCode .. "'" nRet, strRetInfo = mobox.existThisData(strLuaDEID, "Location", strCondition) if (nRet ~= 0) then mobox.stopProgram( strLuaDEID, "在检查货位是否存在时失败! " .. strRetInfo ) return end if (strRetInfo == 'yes') then -- 已经存在，根据导入的数据进行覆盖 strCondition = "S_CODE='" .. strLocCode .. "'" strSetSQL = "S_WH_CODE = '" ..strWHCode .."' , S_AREA_CODE = '" .. strAreaCode .. "' , S_CODE = '" ..strLocCode .."' , S_NAME = '" .. strLocName .. "' , N_AISLE = '" ..location.aisle.. "' , N_ROW = '" ..location.row.. "' , N_COL = '" .. location.col.. "' , N_LAYER = '" .. location.layer .. "' , N_TYPE = '" .. location.loc_type .. "' , N_CAPACITY ='" .. location.capacity .. "', N_LENGTH = '" .. location.length .. "' , N_WIDTH = '" .. location.width .. "' , N_HEIGHT = '" .. location.height .. "' , S_AGV_SITE = '" .. location.agv_site .. "' " nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "Location", strCondition, strSetSQL) if (nRet ~= 0) then mobox.stopProgram( strLuaDEID, strRetInfo ) return end return end -- 导入的货位不存在需要创建 -- 在新增货位前先判断一下仓库、库区是否存在，如果不存在需要创建 -- 判断仓库是否存在 strCondition = "S_CODE='" .. strWHCode .. "'" nRet, strRetInfo = mobox.existThisData(strLuaDEID, "Warehouse", strCondition) if (nRet ~= 0) then mobox.stopProgram( strLuaDEID, "在检查仓库是否存在时失败! " .. strRetInfo) return end if (strRetInfo == 'no') then -- 新增仓库 if (strWHName == '') then strWHName = strWHCode end local warehouse = m3.AllocObject(strLuaDEID,"Warehouse") warehouse.code = strWHCode warehouse.name = strWHName warehouse.factory = factory nRet, strRetInfo = m3.CreateDataObj( strLuaDEID, warehouse ) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, 'mobox 创建【仓库】对象失败!'..strRetInfo ) return end end -- 判断库区是否存在 strCondition = "S_WH_CODE='" .. strWHCode .. "' AND S_CODE = '" .. strAreaCode .. "'" nRet, strRetInfo = mobox.existThisData(strLuaDEID, "Area", strCondition) if (nRet ~= 0) then mobox.stopProgram( strLuaDEID, "在检查库区是否存在时失败! " .. strRetInfo) return end --mobox.writeSysLog("strRetInfo",strRetInfo) if (strRetInfo == 'no') then -- 新增库区 if (strAreaName == '') then strAreaName = strAreaCode end local area = m3.AllocObject(strLuaDEID,"Area") area.code = strAreaCode area.name = strAreaName area.wh_code = strWHCode area.factory = factory nRet, area = m3.CreateDataObj( strLuaDEID, area ) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, 'mobox 创建【库区】对象失败!'..area ) return end if ( location.loc_type == 0 ) then location.loc_type = area.loc_type end end if (location.loc_type == 0 ) then location.loc_type = 1 end -- 如果没定义货位用途默认存储 if (location.purpose == 0 ) then location.purpose = 1 end -- 如果有巷道需要创建巷道数据对象 if ( location.aisle > 0 ) then nRet, strRetInfo = wms.wms_GetAisleInfo( strWHCode, strAreaCode, location.aisle ) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, '获取巷道信息时失败!'..strRetInfo ) return end local aisle_obj = {} if ( strRetInfo ~= '' ) then aisle_obj = json.decode( strRetInfo ) else -- 巷道不存在，需要创建一个巷道数据对象 local aisle_obj = m3.AllocObject(strLuaDEID,"Aisle") aisle_obj.wh_code = strWHCode aisle_obj.area_code = strAreaCode aisle_obj.aisle = locatio.aisle nRet, aisle_obj = m3.CreateDataObj(strLuaDEID, aisle) if ( nRet ~= 0 ) then mobox.stopProgram( strLuaDEID, '创建巷道时失败!'..aisle_obj ) return end end location.aisle_code = aisle.aisle_code end -- 创建货位 nRet, strRetInfo = m3.CreateDataObj( strLuaDEID, location ) if (nRet ~= 0) then mobox.stopProgram( strLuaDEID, "创建货位失败! " .. strRetInfo ) return end end end